home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / CPPaint d1.adf / InstallPPaint < prev    next >
Text File  |  1977-12-31  |  13KB  |  500 lines

  1. .k ""
  2. .bra {
  3. .ket }
  4.  
  5. ; Install Script Copyright (C) Cloanto Italia 1992, 1993
  6. ; Cloanto, Personal Paint, PPaint  (R), (TM) Cloanto Italia
  7. ; All Rights Reserved - Reproduction Prohibited
  8.  
  9. If NOT EXISTS RAM:IPT
  10.   MakeDir RAM:IPT
  11.   EndIf
  12.  
  13. If NOT EXISTS RAM:t
  14.   MakeDir RAM:t
  15.   EndIf
  16.  
  17. If EXISTS C:Copy
  18.   Copy >NIL: C:Copy RAM:IPT
  19.   EndIf
  20.  
  21. CD RAM:IPT
  22.  
  23. If EXISTS C:If
  24.   Copy >NIL: C:If RAM:IPT
  25.   EndIf
  26. If EXISTS C:EndIf
  27.   Copy >NIL: C:EndIf RAM:IPT
  28.   EndIf
  29. If EXISTS C:Execute
  30.   Copy >NIL: C:Execute RAM:IPT
  31.   EndIf
  32. If EXISTS C:Assign
  33.   Copy >NIL: C:Assign RAM:IPT
  34.   EndIf
  35.  
  36. Assign >NIL: PPaint:
  37.  
  38. Assign >NIL: PPaint: EXISTS
  39. If WARN
  40.    Assign >NIL: " PPaint:" EXISTS
  41.    If NOT WARN
  42.       Assign PPaint: " PPaint:"
  43.       EndIf
  44.    Assign >NIL: "Copy of PPaint:" EXISTS
  45.    If NOT WARN
  46.       Assign PPaint: "Copy of PPaint:"
  47.       EndIf
  48.    Assign >NIL: Copy_of_PPaint: EXISTS
  49.    If NOT WARN
  50.       Assign PPaint: Copy_of_PPaint:
  51.       EndIf
  52.    EndIf
  53.  
  54. Assign >NIL: PPaint: EXISTS
  55. If WARN
  56.    Echo "Error: InstallPPaint can only be run from *"PPaint*" disk."
  57.    Wait 3 SECS
  58.    Skip End2
  59.    EndIf
  60.  
  61. Copy PPaint:c/Print RAM:IPT
  62.  
  63. If NOT EXISTS PPaint:s/Startup-PPLclTxt
  64.   Print "Disk is not configured: default configuration in progress."
  65.   Execute PPaint:English
  66.   CD RAM:IPT
  67.   EndIf
  68.  
  69. If NOT EXISTS PPaint:PPaint_Prefs/PP_Locale/Startup-PPLclTxt.eng
  70.   Execute PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub.eng
  71.   EndIf
  72. If NOT EXISTS PPaint:PPaint_Prefs/PP_Locale/Startup-PPLclTxt.deu
  73.   Execute PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub.deu
  74.   EndIf
  75. If NOT EXISTS PPaint:PPaint_Prefs/PP_Locale/Startup-PPLclTxt.ita
  76.   Execute PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub.ita
  77.   EndIf
  78.  
  79. If NOT EXISTS PLT_trlkll
  80.   Print "Error during install."
  81.   Wait 3 SECS
  82.   Skip End2
  83.   EndIf
  84.  
  85. If EXISTS C:CD
  86.   Copy >NIL: C:CD RAM:IPT
  87.   EndIf
  88. If EXISTS C:Else
  89.   Copy >NIL: C:Else RAM:IPT
  90.   EndIf
  91. If EXISTS C:Lab
  92.   Copy >NIL: C:Lab RAM:IPT
  93.   EndIf
  94. If EXISTS C:Skip
  95.   Copy >NIL: C:Skip RAM:IPT
  96.   EndIf
  97. If EXISTS C:Delete
  98.   Copy >NIL: C:Delete RAM:IPT
  99.   Copy >NIL: C:Delete RAM:t
  100.   EndIf
  101. If EXISTS C:MakeDir
  102.   Copy >NIL: C:MakeDir RAM:IPT
  103.   EndIf
  104. If EXISTS C:Wait
  105.   Copy >NIL: C:Wait RAM:IPT
  106.   EndIf
  107.  
  108. Copy PPaint:c/CAsk RAM:IPT
  109. Copy PPaint:c/CopyIcon RAM:IPT
  110. Copy PPaint:c/ShowPath RAM:IPT
  111. Copy PPaint:PPaint_Tools/AskAssign RAM:IPT
  112.  
  113. Version >NIL: graphics.library 36
  114. If WARN
  115.   Copy PPaint:PPaint_Icons_1/def_#?.info RAM:IPT CLONE QUIET
  116. Else
  117.   Copy PPaint:PPaint_Icons_2/def_#?.info RAM:IPT CLONE QUIET
  118. EndIf
  119.  
  120. Print PLT_title
  121.  
  122. ; PWrite, C1-Text, PFM trademarks of Cloanto Italia
  123. ; DPaintV, DPaintIV, DeluxePaintIII, ADPRO trademarks of respective owners
  124.  
  125. Assign >NIL: PWrite: EXISTS
  126. If NOT WARN
  127.   Assign INTELLASSIGN: PWrite:
  128.   EndIf
  129. Assign >NIL: C1-Text: EXISTS
  130. If NOT WARN
  131.   Assign INTELLASSIGN: C1-Text:
  132.   EndIf
  133. Assign >NIL: PFM: EXISTS
  134. If NOT WARN
  135.   Assign INTELLASSIGN: PFM:
  136.   EndIf
  137. Assign >NIL: ADPRO: EXISTS
  138. If NOT WARN
  139.   Assign INTELLASSIGN: ADPRO:
  140.   EndIf
  141. Assign >NIL: DeluxePaintIII: EXISTS
  142. If NOT WARN
  143.   Assign INTELLASSIGN: DeluxePaintIII:
  144.   EndIf
  145. Assign >NIL: DPaintIV: EXISTS
  146. If NOT WARN
  147.   Assign INTELLASSIGN: DPaintIV:
  148.   EndIf
  149. Assign >NIL: DPaintV: EXISTS
  150. If NOT WARN
  151.   Assign INTELLASSIGN: DPaintV:
  152.   EndIf
  153.  
  154. Assign >NIL: INTELLASSIGN: EXISTS
  155. If NOT WARN
  156.   CD INTELLASSIGN:
  157.   CD >NIL: /
  158.   Assign INTELLASSIGN:
  159. Else
  160.   Assign >NIL: Work: EXISTS
  161.   If NOT WARN
  162.     CD Work:
  163.   Else
  164.     Assign >NIL: DH1: EXISTS
  165.     If NOT WARN
  166.       CD DH1:
  167.     Else
  168.       CD PPaint:
  169.     EndIf
  170.   EndIf
  171. EndIf
  172.  
  173. Execute RAM:IPT/PLC_ipath
  174.  
  175. If NOT WARN
  176.  
  177.  CD RAM:IPT
  178.  
  179.  Lab Questions
  180.  
  181.  Print >I1 ";"
  182.  Print >I2 ";"
  183.  Print >PP_WriteOK ";"
  184.  
  185.  Print PLT_askprg
  186.  CAsk -y "*e[31m ?"
  187.  If WARN
  188.    Print >>I1 "Print PLT_infppp"
  189.    Print >>I1 "Copy PPaint:PPaint IPPAINT: CLONE"
  190.    Print >>I1 "CopyIcon >NIL: -r def_PPaint IPPAINT:PPaint"
  191.    Print >>I1 "Print *"OK*""
  192.  
  193.    If NOT EXISTS IPPAINT:PPaint_Icons_1
  194.      Print >>I1 "MakeDir IPPAINT:PPaint_Icons_1"
  195.    EndIf
  196.    If NOT EXISTS IPPAINT:PPaint_Icons_2
  197.      Print >>I1 "MakeDir IPPAINT:PPaint_Icons_2"
  198.    EndIf
  199.    If NOT EXISTS IPPAINT:PPaint_Prefs
  200.      Print >>I1 "MakeDir IPPAINT:PPaint_Prefs"
  201.    EndIf
  202.    If NOT EXISTS IPPAINT:Pictures
  203.      Print >>I1 "MakeDir IPPAINT:Pictures"
  204.    EndIf
  205.    If NOT EXISTS IPPAINT:Brushes
  206.      Print >>I1 "MakeDir IPPAINT:Brushes"
  207.    EndIf
  208.    If NOT EXISTS IPPAINT:Colors
  209.      Print >>I1 "MakeDir IPPAINT:Colors"
  210.    EndIf
  211.    If NOT EXISTS IPPAINT:Stencils
  212.      Print >>I1 "MakeDir IPPAINT:Stencils"
  213.    EndIf
  214.    If NOT EXISTS IPPAINT:fonts
  215.      Print >>I1 "MakeDir > NIL: IPPAINT:fonts"
  216.    EndIf
  217.    Print > MEMO_DEFDIRS ";"
  218.  
  219.    Print >>I1 "Print PLT_inficn"
  220.    Print >>I1 "CopyIcon >NIL: -r def_Drawer IPPAINT:PPaint_Icons_1"
  221.    Print >>I1 "CopyIcon >NIL: -r def_Drawer IPPAINT:PPaint_Icons_2"
  222.    Print >>I1 "CopyIcon >NIL: -r def_Drawer IPPAINT:PPaint_Prefs"
  223.    Print >>I1 "CopyIcon >NIL: def_Drawer IPPAINT:Pictures"
  224.    Print >>I1 "CopyIcon >NIL: def_Drawer IPPAINT:Brushes"
  225.    Print >>I1 "CopyIcon >NIL: def_Drawer IPPAINT:Colors"
  226.    Print >>I1 "CopyIcon >NIL: def_Drawer IPPAINT:Stencils"
  227.    Print >>I1 "Copy PPaint:PPaint_Icons_1/def_Brush.info IPPAINT:PPaint_Icons_1 CLONE"
  228.    Print >>I1 "Copy PPaint:PPaint_Icons_1/def_Stencil.info IPPAINT:PPaint_Icons_1 CLONE"
  229.    Print >>I1 "Copy PPaint:PPaint_Icons_1/def_Picture.info IPPAINT:PPaint_Icons_1 CLONE"
  230.    Print >>I1 "Copy PPaint:PPaint_Icons_1/def_Palette.info IPPAINT:PPaint_Icons_1 CLONE"
  231.    Print >>I1 "Copy PPaint:PPaint_Icons_1/def_Settings.info IPPAINT:PPaint_Icons_1 CLONE"
  232.    Print >>I1 "Copy PPaint:PPaint_Icons_2/def_Brush.info IPPAINT:PPaint_Icons_2 CLONE"
  233.    Print >>I1 "Copy PPaint:PPaint_Icons_2/def_Stencil.info IPPAINT:PPaint_Icons_2 CLONE"
  234.    Print >>I1 "Copy PPaint:PPaint_Icons_2/def_Picture.info IPPAINT:PPaint_Icons_2 CLONE"
  235.    Print >>I1 "Copy PPaint:PPaint_Icons_2/def_Palette.info IPPAINT:PPaint_Icons_2 CLONE"
  236.    Print >>I1 "Copy PPaint:PPaint_Icons_2/def_Settings.info IPPAINT:PPaint_Icons_2 CLONE"
  237.    Print >>I1 "Print *"OK*""
  238.    Print >>I1 "Print PLT_infuit"
  239.    If EXISTS PPaint:PPaint_Prefs/Startup_A.set
  240.      Print >>I1 "Copy PPaint:PPaint_Prefs/Startup_A.set IPPAINT:PPaint_Prefs CLONE"
  241.    EndIf
  242.    Print >>I1 "Copy PPaint:PPaint_Prefs/Startup_1.set IPPAINT:PPaint_Prefs CLONE"
  243.    Print >>I1 "CopyIcon >NIL: -r def_Settings IPPAINT:PPaint_Prefs/Startup_?.set"
  244.    Print >>I1 "Copy PPaint:PPaint_Prefs/UIText.#? IPPAINT:PPaint_Prefs CLONE QUIET"
  245.    Print >>I1 "CopyIcon >NIL: -r def_UIText IPPAINT:PPaint_Prefs/UIText.#?"
  246.    Print >>I1 "Print *"OK*""
  247.    Print >>I1 "Print PLT_inffnt"
  248.    Print >>I1 "Copy PPaint:fonts IPPAINT:fonts ALL CLONE QUIET"
  249.    Assign >NIL: FONTS: EXISTS
  250.    If NOT WARN
  251.      Print >>I1 "If EXISTS MEMO_FF"
  252.      Print >>I1 "  Copy >NIL: PPaint:fonts FONTS: ALL CLONE QUIET"
  253.      Print >>I1 "EndIf"
  254.      Print > MEMO_FF ";1"
  255.    EndIf
  256.    Print >>I1 "Print *"OK*""
  257.   EndIf
  258.  
  259.  Print PLT_askaud
  260.  CAsk -y "*e[31m ?"
  261.  If WARN
  262.    Print >>I1 "Print PLT_infaud"
  263.    Print >>I1 "Copy >NIL: PPaint:CloantoAudio DEVS: CLONE"
  264.    Print >>I1 "Print *"OK*""
  265.  EndIf
  266.  
  267.  Print ""
  268.  Print PLT_askman
  269.  CAsk "*e[31m ?"
  270.  If WARN
  271.    Print >>I1 "Print PLT_infman"
  272.    Print >>I1 "Copy PPaint:PPaint.man IPPAINT: CLONE"
  273.    Print >>I1 "CopyIcon >NIL: -r def_PPaint.man IPPAINT:PPaint.man"
  274.    Print >>I1 "Print *"OK*""
  275.  EndIf
  276.  
  277.  Print PLT_askps
  278.  CAsk "*e[31m ?"
  279.  If WARN
  280.    Print >>I1 "Print PLT_infps"
  281.    Print >>I1 "Copy PPaint:PPaint_PS IPPAINT: CLONE"
  282.    Print >>I1 "CopyIcon >NIL: -r def_PPaint_PS IPPAINT:PPaint_PS"
  283.    Print >>I1 "Print *"OK*""
  284.  EndIf
  285.  
  286.  Print PLT_asktls
  287.  CAsk "*e[31m ?"
  288.  If WARN
  289.    If NOT EXISTS IPPAINT:PPaint_Tools
  290.      Print >>I1 "MakeDir IPPAINT:PPaint_Tools"
  291.    EndIf
  292.    Print >>I1 "Print PLT_inftls"
  293.    Print >>I1 "Copy PPaint:PPaint_Tools IPPAINT:PPaint_Tools ALL CLONE QUIET"
  294.    Print >>I1 "CopyIcon >NIL: -r def_Drawer IPPAINT:PPaint_Tools"
  295.    Print >>I1 "CopyIcon >NIL: -r def_CopyIcon IPPAINT:PPaint_Tools/CopyIcon"
  296.    Print >>I1 "Print *"OK*""
  297.  EndIf
  298.  
  299.  Print PLT_askprf
  300.  CAsk "*e[31m ?"
  301.  If WARN
  302.    If NOT EXISTS IPPAINT:PPaint_Prefs
  303.      If NOT EXISTS MEMO_DEFDIRS
  304.        Print >>I1 "MakeDir IPPAINT:PPaint_Prefs"
  305.      EndIf
  306.    EndIf
  307.    Print >>I1 "Print PLT_infprf"
  308.    Print >>I1 "Copy PPaint:PPaint_Prefs/#?.set IPPAINT:PPaint_Prefs ALL CLONE QUIET"
  309.    Print >>I1 "Copy >NIL: PPaint_2:PPaint_Prefs/#?.set IPPAINT:PPaint_Prefs ALL CLONE QUIET"
  310.    Print >>I1 "CopyIcon >NIL: -r def_Drawer IPPAINT:PPaint_Prefs"
  311.    Print >>I1 "CopyIcon >NIL: -r def_Settings IPPAINT:PPaint_Prefs/#?.set"
  312.    Print >>I1 "Print *"OK*""
  313.  EndIf
  314.  
  315.  Print PLT_askcol
  316.  CAsk "*e[31m ?"
  317.  If WARN
  318.    If NOT EXISTS IPPAINT:Colors
  319.      If NOT EXISTS MEMO_DEFDIRS
  320.        Print >>I2 "MakeDir IPPAINT:Colors"
  321.      EndIf
  322.    EndIf
  323.    Print >>I2 "Print PLT_infcol"
  324.    Print >>I2 "Copy >NIL: PPaint_2:Colors IPPAINT:Colors ALL CLONE QUIET"
  325.    Print >>I2 "CopyIcon >NIL: -r def_Drawer IPPAINT:Colors"
  326.    Print >>I2 "CopyIcon >NIL: -r def_Palette IPPAINT:Colors/#?"
  327.    Print >>I2 "Print *"OK*""
  328.  EndIf
  329.  
  330.  Print PLT_askpic
  331.  CAsk "*e[31m ?"
  332.  If WARN
  333.    If NOT EXISTS IPPAINT:Pictures
  334.      If NOT EXISTS MEMO_DEFDIRS
  335.        Print >>I2 "MakeDir IPPAINT:Pictures"
  336.      EndIf
  337.    EndIf
  338.    Print >>I2 "Print PLT_infpic"
  339.    Print >>I2 "Copy >NIL: PPaint_2:Pictures/#?.gif#? IPPAINT:Pictures ALL CLONE QUIET"
  340.    Print >>I2 "CopyIcon >NIL: -r def_Drawer IPPAINT:Pictures"
  341.    Print >>I2 "CopyIcon >NIL: -r def_Picture IPPAINT:Pictures/#?"
  342.    Print >>I2 "Print *"OK*""
  343.  EndIf
  344.  
  345.  Print PLT_askfn1
  346.  CAsk "*e[31m ?"
  347.  If WARN
  348.    Assign >NIL: FONTS: EXISTS
  349.    If NOT WARN
  350.      Print >>I2 "If EXISTS MEMO_FF"
  351.      Print >>I2 "  Print PLT_inffnt"
  352.      Print >>I2 "  Copy >NIL: PPaint_2:fonts FONTS: ALL CLONE QUIET"
  353.      Print >>I2 "  Print *"OK*""
  354.      Print >>I2 "EndIf"
  355.      Print > MEMO_FF ";2"
  356.    EndIf
  357.  Else
  358.    Print PLT_askfn2
  359.    CAsk "*e[31m ?"
  360.    If WARN
  361.      CD IPPAINT:
  362.      Execute RAM:IPT/PLC_fpath
  363.      If NOT WARN
  364.        CD RAM:IPT
  365.        Print >>I2 "Print PLT_inffnt"
  366.        Print >>I2 "Copy PPaint_2:fonts IFONTS: ALL CLONE QUIET"
  367.        Print >>I2 "Print *"OK*""
  368.      EndIf
  369.      CD RAM:IPT
  370.    EndIf
  371.  EndIf
  372.  
  373.  If EXISTS PPaint:libs/powerpacker.library
  374.    Print PLT_askdec
  375.    CAsk "*e[31m ?"
  376.    If WARN
  377.      Version >NIL: LIBS:powerpacker.library 35 347
  378.      If WARN
  379.        Copy PPaint:libs/powerpacker.library LIBS: CLONE
  380.      EndIf
  381.      Version >NIL: LIBS:powerpacker.library 35 347
  382.      If NOT WARN
  383.        Print > MEMO_DEC ";"
  384.      EndIf
  385.    EndIf
  386.  EndIf
  387.  
  388.  Print ""
  389.  Print PLT_askok
  390.  CAsk -y "*e[31m ?"
  391.  If NOT WARN
  392.    Print PLT_title
  393.    Print PLT_askrep
  394.    CAsk -y "*e[31m ?"
  395.    If WARN
  396.      If EXISTS MEMO_DEFDIRS
  397.        Delete MEMO_DEFDIRS QUIET
  398.      EndIf
  399.      If EXISTS MEMO_FF
  400.        Delete MEMO_FF QUIET
  401.      EndIf
  402.      If EXISTS MEMO_DEC
  403.        Delete MEMO_DEC QUIET
  404.      EndIf
  405.      Print PLT_title
  406.      Skip Questions BACK
  407.    Else
  408.      Skip End1
  409.    EndIf
  410.  EndIf
  411.  
  412.  Print PLT_title
  413.  Print PLT_infbeg
  414.  ShowPath -f IPPAINT:
  415.  Print "*e[33m"
  416.  
  417.  If EXISTS MEMO_FF
  418.    Copy >NIL: PP_WriteOK FONTS:
  419.    If EXISTS FONTS:PP_WriteOK
  420.      Delete >NIL: FONTS:PP_WriteOK
  421.      If EXISTS SYS:System/FixFonts
  422.        Copy >NIL: SYS:System/FixFonts RAM:IPT
  423.        Print >>I2 "Print PLT_inffix"
  424.        Print >>I2 "FixFonts"
  425.        Print >>I2 "Print *"OK*""
  426.      EndIf
  427.    Else
  428.      Delete MEMO_FF QUIET
  429.    EndIf
  430.  EndIf
  431.  
  432.  CopyIcon >NIL: def_Drawer IPPAINT: 10 11 350 155
  433.  
  434.  Execute I1
  435.  Execute I2
  436.  Wait 2 SECS
  437.  
  438.  Print PLT_title
  439.  Print N "*e[31;1m"
  440.  Print PLT_infend
  441.  Print "*e[0m*N"
  442.  Print PLT_trladd
  443.  Print N "*N*e[33m          Assign PPaint: "
  444.  ShowPath IPPAINT:
  445.  Print "*e[31m"
  446.  Print PLT_trlfl1
  447.  Print PLT_trlfl2
  448.  
  449.  Assign >NIL: S: EXISTS
  450.  If NOT WARN
  451.    Print ""
  452.    Print PLT_askust
  453.    CAsk -y "*e[31m ?"
  454.    If WARN
  455.      Copy >NIL: PP_WriteOK S:
  456.      If EXISTS S:PP_WriteOK
  457.        If NOT EXISTS S:user-startup
  458.          Print >S:user-startup "; User-startup file created by Personal Paint"
  459.        Else
  460.          Print >>S:user-startup "; Following lines added by Personal Paint"
  461.        EndIf
  462.        Print >>S:user-startup N "Assign >NIL: PPAINT: EXISTS*NIf WARN*N  Assign PPAINT: "
  463.        ShowPath >>S:user-startup IPPAINT:
  464.        Print >>S:user-startup "  EndIf"
  465.        Print >>S:user-startup "; End of lines added by Personal Paint"
  466.        Delete >NIL: S:PP_WriteOK
  467.      EndIf
  468.    EndIf
  469.  EndIf
  470.  
  471.  Assign >NIL: IFONTS: EXISTS
  472.  If NOT WARN
  473.    Print ""
  474.    Print PLT_trlfnt
  475.    ShowPath IFONTS:
  476.    Print "*e[31m"
  477.  EndIf
  478.  
  479.  Lab End1
  480.  
  481.  Assign IPPAINT:
  482.  Assign IFONTS:
  483.  
  484.  Wait 1 SECS
  485.  Print ""
  486.  Print PLT_askend
  487.  CAsk ""
  488.  
  489. Else
  490.  CD RAM:IPT
  491.  Print N "*e[31;1m"
  492.  Print PLT_trlkll
  493.  Wait 3 SECS
  494. EndIf
  495.  
  496. Lab End2
  497. CD RAM:t
  498. Delete > NIL: RAM:IPT ALL QUIET
  499. Delete > NIL: Delete
  500.